home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00041_player idle Mac.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  3.7 KB  |  113 lines
  1. global gFieldTop, gchaptertextheight, theQTMovie, gMoovOutTime, gPauseMode, theBlitPict, grectlist, gNewEnter, gAfterClick, gcurrlessonnumber, gcurrchapternumber, objCapturePict, onIBM, glessonnumber
  2.  
  3. on exitFrame
  4.   if gPauseMode then
  5.     if rollOver(6) then
  6.       set theMouseLine to (mouseV() - gFieldTop) / gchaptertextheight
  7.       if (theMouseLine <= glessonnumber) and (theMouseLine > 0) then
  8.         if gNewEnter then
  9.           blitPictInitScreen(theBlitPict, getAt(grectlist, 3))
  10.           blitPictDrawObj(theBlitPict, the srcrect of theBlitPict, the POINTER of objCapturePict, the srcrect of objCapturePict, "copy")
  11.           blitPictDispose(theBlitPict)
  12.           set the locV of sprite 8 to (theMouseLine * gchaptertextheight) + gFieldTop
  13.           set the visible of sprite 8 to 1
  14.           updateStage()
  15.           showpreview(theMouseLine)
  16.           set gNewEnter to 0
  17.         else
  18.           if gAfterClick then
  19.             set the locV of sprite 8 to (theMouseLine * gchaptertextheight) + gFieldTop
  20.             updateStage()
  21.           else
  22.             set the locV of sprite 8 to (theMouseLine * gchaptertextheight) + gFieldTop
  23.             updateStage()
  24.             showpreview(theMouseLine)
  25.           end if
  26.         end if
  27.       end if
  28.     else
  29.       if gNewEnter = 0 then
  30.         if gAfterClick then
  31.           set the visible of sprite 8 to 0
  32.           updateStage()
  33.           set gNewEnter to 1
  34.           set gAfterClick to 0
  35.         else
  36.           blitPictDrawScreen(objCapturePict, the srcrect of objCapturePict, getAt(grectlist, 3), "copy", 0, 0)
  37.           set the visible of sprite 8 to 0
  38.           updateStage()
  39.           set gNewEnter to 1
  40.         end if
  41.       end if
  42.     end if
  43.   else
  44.     if gAfterClick then
  45.       set the visible of sprite 8 to 0
  46.       updateStage()
  47.       set gNewEnter to 1
  48.       set gAfterClick to 0
  49.     end if
  50.     if QTGetCurrtime(theQTMovie) < gMoovOutTime then
  51.       QTIdle(theQTMovie)
  52.     else
  53.       callbackplay()
  54.     end if
  55.   end if
  56.   go(the frame)
  57. end
  58.  
  59. on idle
  60.   if gPauseMode then
  61.     if rollOver(6) then
  62.       set theMouseLine to (mouseV() - gFieldTop) / gchaptertextheight
  63.       if (theMouseLine <= glessonnumber) and (theMouseLine > 0) then
  64.         if gNewEnter then
  65.           blitPictInitScreen(theBlitPict, getAt(grectlist, 3))
  66.           blitPictDrawObj(theBlitPict, the srcrect of theBlitPict, the POINTER of objCapturePict, the srcrect of objCapturePict, "copy")
  67.           blitPictDispose(theBlitPict)
  68.           set the locV of sprite 8 to (theMouseLine * gchaptertextheight) + gFieldTop
  69.           set the visible of sprite 8 to 1
  70.           updateStage()
  71.           showpreview(theMouseLine)
  72.           set gNewEnter to 0
  73.         else
  74.           if gAfterClick then
  75.             set the locV of sprite 8 to (theMouseLine * gchaptertextheight) + gFieldTop
  76.             updateStage()
  77.           else
  78.             set the locV of sprite 8 to (theMouseLine * gchaptertextheight) + gFieldTop
  79.             updateStage()
  80.             showpreview(theMouseLine)
  81.           end if
  82.         end if
  83.       end if
  84.     else
  85.       if gNewEnter = 0 then
  86.         if gAfterClick then
  87.           set the visible of sprite 8 to 0
  88.           updateStage()
  89.           set gNewEnter to 1
  90.           set gAfterClick to 0
  91.         else
  92.           blitPictDrawScreen(objCapturePict, the srcrect of objCapturePict, getAt(grectlist, 3), "copy", 0, 0)
  93.           set the visible of sprite 8 to 0
  94.           updateStage()
  95.           set gNewEnter to 1
  96.         end if
  97.       end if
  98.     end if
  99.   else
  100.     if gAfterClick then
  101.       set the visible of sprite 8 to 0
  102.       updateStage()
  103.       set gNewEnter to 1
  104.       set gAfterClick to 0
  105.     end if
  106.     if QTGetCurrtime(theQTMovie) < gMoovOutTime then
  107.       QTIdle(theQTMovie)
  108.     else
  109.       callbackplay()
  110.     end if
  111.   end if
  112. end
  113.